home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Classic Collection / The Amiga Classic Collection - Disc 1.iso / Education / ED16-CrosswordCreator.DMS / ED16-CrosswordCreator.adf / Source / CPCGlobal.mod < prev    next >
Text File  |  1991-07-13  |  236b  |  21 lines
  1. IMPLEMENTATION MODULE CPCGlobal;
  2.  
  3.  
  4.  
  5. IMPORT Arts;
  6. IMPORT SYSTEM;
  7.  
  8.  
  9.  
  10. PROCEDURE myAssert(flag: BOOLEAN; txt1Ptr,txt2Ptr: SYSTEM.ADDRESS);
  11.  BEGIN
  12.   IF (NOT flag) THEN
  13.    Arts.Error(txt1Ptr,txt2Ptr);
  14.   END;
  15.  END myAssert;
  16.  
  17.  
  18.  
  19. END CPCGlobal.
  20.  
  21.